home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / pxfgetgid.z / pxfgetgid
Encoding:
Text File  |  2002-10-03  |  2.1 KB  |  53 lines
  1. PXFGETGID(3F)                                         Last changed: 1-22-99
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFGGEETTGGIIDD - Gets the real group ID
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSUUBBRROOUUTTIINNEE PPXXFFGGEETTGGIIDD ((_i_g_i_d,, _i_e_r_r_o_r))
  9.      IINNTTEEGGEERR _i_g_i_d,, _i_e_r_r_o_r
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. SSTTAANNDDAARRDDSS
  15.      IEEE standard interface for FORTRAN 77
  16.  
  17. DDEESSCCRRIIPPTTIIOONN
  18.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  19.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  20.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  21.      F77 compiler.
  22.  
  23.      The PPXXFFGGEETTGGIIDD subroutine uses the ggeettggiidd(()) system call to get the real
  24.      group ID.
  25.  
  26.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  27.      UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
  28.      unless documented otherwise.  On UNICOS and UNICOS/mk, default kind is
  29.      KKIINNDD==88 for integer, real, complex, and logical arguments; on IRIX, the
  30.      default kind is KKIINNDD==44.
  31.  
  32.      The following is a list of valid arguments for this routine:
  33.  
  34.      _i_g_i_d    An output integer variable for the real group ID for the
  35.              current process.
  36.  
  37.      _i_e_r_r_o_r  An output integer variable that contains zero if PPXXFFGGEETTGGIIDD was
  38.              successful.
  39.  
  40. EEXXAAMMPPLLEESS
  41.      This example calls PPXXFFGGEETTGGIIDD and prints out the current real group ID
  42.      and the returned error.
  43.  
  44.           program pxftest
  45.           integer igid, ierr
  46.           CALL PXFGETGID(igid,ierr)
  47.           print *,'igid = ',igid,' ierr = ',ierr
  48.           end
  49.  
  50. SSEEEE AALLSSOO
  51.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed
  52.      version of this man page.
  53.